What PC? 1996 August/WPCAUG96.ISO/mgiwaug.dxr/00012_MGIHammerAnimate ,MGINumberAnimate .ls

Text File | 1996-06-14 | 3.5 KB | 93 lines

on MGIHammerAnimate
  global MGIHammerSprite, MGIHammer, MGIHammerSpriteTwo, MGIWallBitOneSprite, MGIToolBagSprite, MGIEmptyToolBagSprite, MGICompOnStage, MGICompOneSprite, MGICompTwoSprite, MGICompTwoOnStage
  if MGIHammer = 0 then
    if rollOver(MGIHammerSprite) then
      set MGIHammer to 1
      repeat with t = 1 to 14
        set the locV of sprite MGIHammerSprite to the locV of sprite MGIHammerSprite - 10
        updateStage()
      end repeat
      set the castNum of sprite MGIHammerSpriteTwo to the castNum of sprite MGIHammerSprite
      set the locH of sprite MGIHammerSpriteTwo to the locH of sprite MGIHammerSprite
      set the locV of sprite MGIHammerSpriteTwo to the locV of sprite MGIHammerSprite
      set the locH of sprite MGIHammerSprite to 2000
      updateStage()
      repeat with t = 1 to 17
        set the locV of sprite MGIHammerSpriteTwo to the locV of sprite MGIHammerSpriteTwo + 10
        updateStage()
      end repeat
    end if
  end if
  repeat while MGIHammer = 1
    cursor(200)
    if the mouseH < 150 then
      set MGIHammer to 2
      exit repeat
    end if
    if (the mouseH > 139) and (the mouseH < 588) then
      set the locH of sprite MGIHammerSpriteTwo to the mouseH
    end if
    updateStage()
  end repeat
  if MGIHammer = 2 then
    set the locH of sprite MGIHammerSpriteTwo to 140
    repeat with f = 1 to 5
      set the castNum of sprite MGIHammerSpriteTwo to the castNum of sprite MGIHammerSpriteTwo + 1
      updateStage()
    end repeat
    set MGIHammer to 3
    repeat with t = 1 to 10
      set the castNum of sprite MGIWallBitOneSprite to the castNum of sprite MGIWallBitOneSprite + 1
      set the locV of sprite MGIHammerSpriteTwo to the locV of sprite MGIHammerSpriteTwo + 40
      updateStage()
    end repeat
    set the locH of sprite MGICompOneSprite to 189
    set the locV of sprite MGICompOneSprite to 311
    set MGICompOnStage to 1
    updateStage()
    cursor(-1)
  end if
  if MGIHammer > 2 then
    if rollOver(MGIToolBagSprite) then
      set the castNum of sprite MGIEmptyToolBagSprite to 94
      set the locV of sprite MGIEmptyToolBagSprite to 432
      set the locH of sprite MGIEmptyToolBagSprite to 560
      set the ink of sprite MGIEmptyToolBagSprite to 37
      updateStage()
      repeat while rollOver(MGIToolBagSprite)
      end repeat
      set the locV of sprite MGIEmptyToolBagSprite to 2000
      updateStage()
    end if
  end if
end

on MGINumberAnimate
  global MGINumberSprite, MGIWallBitTwoSprite, MGICompTwoSprite, MGICompTwoOnStage
  repeat while rollOver(MGINumberSprite)
    MGISpinE()
    set the castNum of sprite MGINumberSprite to 91
    if (the castNum of sprite MGIWallBitTwoSprite = 85) and the mouseDown then
      repeat with d = 1 to 4
        set the castNum of sprite MGIWallBitTwoSprite to the castNum of sprite MGIWallBitTwoSprite + 1
        set the locV of sprite MGINumberSprite to the locV of sprite MGINumberSprite + 40
        updateStage()
      end repeat
      repeat with d = 1 to 4
        set the locV of sprite MGIWallBitTwoSprite to the locV of sprite MGIWallBitTwoSprite + 40
        set the locV of sprite MGINumberSprite to the locV of sprite MGINumberSprite + 40
        updateStage()
      end repeat
      set the locH of sprite MGICompTwoSprite to 341
      set the locV of sprite MGICompTwoSprite to 309
      set MGICompTwoOnStage to 1
      updateStage()
    end if
    updateStage()
  end repeat
  if not rollOver(MGINumberSprite) then
    set the castNum of sprite MGINumberSprite to 90
    updateStage()
  end if
end